home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh91a.d64 / ld v4.0 centr. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  14KB  |  409 lines
  1. 10 REM -------------------------------
  2. 20 REM -----  LIST-DESIGNER TWO  -----
  3. 30 REM -----                     -----
  4. 40 REM -----  (W) 1992  GENIES   -----
  5. 50 REM -------------------------------
  6. 55 IFPEEK(1023)<>255THENPOKE1023,255:LOAD"CENTRONICS",8,1
  7. 56 SYS51456
  8. 60 PRINT"[154][147]  [196]AS [208]ROGRAMM SPRINGT AUTOMATISCH IN":POKE53280,14:POKE53281,15
  9. 70 PRINT"  DAS [205]ENUE ZURUECK, WENN [198]LOPPY ODER"CHR$(14)CHR$(8)
  10. 80 PRINT"     DER SERIELLE [196]RUCKER AUS IST."
  11. 90 PRINT"           (W) 1992 [199]ENIES":CLR:GOSUB4000:F=1
  12. 93 PRINT"  [201]NITIALISIERE [198]LOPPY!":PRINT"  [211]TATUS: ";
  13. 95 OPEN1,8,15,"I":INPUT#1,E1$,E2$,E3$,E4$:PRINTE1$","E2$","E3$","E4$:CLOSE1
  14. 96 PRINT"  [212]ASTE!":POKE198,.:WAIT198,1
  15. 100 DEFFNT(X)=(40-LEN(X$))/2:DIMTA$(7,50),EG$(7,51),DR$(30):X=1
  16. 110 F$(2)="[196]ISKETTENVERWALTUNG":F$(1)="[195][196]-[214]ERWALTUNG":F$(3)="[193]DRESSENVERWALTUNG"
  17. 111 F$(4)="[214]IDEOVERWALTUNG":F$(5)=""
  18. 150 PRINT"[147]":X$="[204]IST-[196]ESIGNER [212]WO V4.0":PRINT""TAB(FNT(1))X$:POKE198,.
  19. 160 PRINT"----------------------------------------":CP$=" [205]ARKT&[212]ECHNIK"
  20. 161 POKE214,11:POKE211,20:SYS58732:PRINT"[215]RITTEN BY [199]ENIES
  21. 163 [151]214,13:[151]211,20:[158]58732:[153]"(C)";CP$
  22. 164 [151]214,17:[158]58732:[153]"----------------------------------------
  23. 165 POKE214,18:POKE211,4:SYS58732:PRINT"'_' [215]ECHSELT DIE [196]ATEIVERWALTUNG"
  24. 166 POKE214,19:SYS58732:PRINT"----------------------------------------
  25. 167 [151]214,5:[151]211,.:[158]58732
  26. 170 [153]"STR$ESIGNER-(null)ENUE:":M$(1)[178]"- ATNNLEGEN  ":M$(2)[178]"- (null)ISTEN   "
  27. 180 M$(3)[178]"- STR$RUCKEN  ":M$(4)[178]"- (null)AVEN    ":M$(5)[178]"- (null)ADEN    "
  28. 190 M$(6)[178]"- STR$ISKETTE ":M$(7)[178]"- (null)OESCHEN ":M$(8)[178]"- PEEKEENDEN  "
  29. 200 [129]T[178]1[164]8:T$(T)[178]""[170]M$(T)[170]"WAIT":[130]
  30. 210 [153]"":[129]T[178]1[164]8:[153][163]7)M$(T):[130]
  31. 220 [129]R[178]1[164]X:[153]"";:[130]
  32. 230 [153]"ONONONONONONONONON"[163]7)T$(X)
  33. 240 [161]A$
  34. 241 [139]A$[178]"B"[167]X[178]8:A$[178][199](13)
  35. 245 [139]A$[178]"_"[175]Y[178].[167]F[178]F[170]1:[139]F[178]5[167]F[178]1
  36. 246 [139]A$[178]"_"[175]Y[178].[167][151]781,23:[158]59903:[145]F[141]4040,4060,4080,4100,4120
  37. 250 [139]A$[178]"ON"[175]X[179] 0[167]240
  38. 260 [139]A$[178]""[175]X[177] 9[167]240
  39. 265 ZE[178][194](214):SP[178][194](211):[151]214,23:[151]211,7:[158]58732:[153]"*ATNRT: "F$(F)
  40. 266 [151]214,ZE:[151]211,SP:[158]58732
  41. 270 [139]A$[178]""[167]X[178]X[170]1:[153]"ON"[163]7)M$(X[171]1)[199](13)[163]7)T$(X)
  42. 280 [139]A$[178]"ON"[175]X[177]0[167]X[178]X[171]1:[153]"ON"[163]7)M$(X[170]1)[199](13)"ONON"[163]7)T$(X)
  43. 290 [139]A$[178][199](13)[167]330
  44. 300 [139]X[178]0[175]A$[178]"ON"[167]X[178]8:[153][163]7)M$(1)[199](13)""[163]7)T$(X)
  45. 310 [139]X[178]9[175]A$[178]""[167]X[178]1:[153]"ONON"[163]7)M$(8)[199](13)"ONONONONONONONON"[163]7)T$(X)
  46. 320 [137]240
  47. 330 YA[178]5:YE[178]23:[141]60100
  48. 340 X$[178][201](M$(X),9):[129]T[178]1[164]9:[139][202](X$,T,1)[178]" "[167]R[178]T:T[178]9
  49. 350 [130]:X$[178][200](X$,R):R[178][165]T(X):[153]""[166]R)X$
  50. 360 [145]X[137]361,500,1760,770,950,1220,1150,1720
  51. 361 [139]Y[178]50[167][153]"(null)EIN (null)LATZ GEFUNDEN!":[151]198,.:[146]198,1:[137]150
  52. 365 Y[178]Y[170]1
  53. 370 [151]214,20:[151]211,.:[158]58732
  54. 371 [153]"----------------------------------------";
  55. 372 [153]"  ASC1 WAIT ATNENDERN         ASC3 WAIT PEEKESTAETIGUNG"
  56. 373 [153]"  ASC5 WAIT (null)ENUE           ASC7 WAIT (null)ESET"
  57. 374 [151]214,19:[151]211,.:[158]58732:[153][166]15)"(null)EITE:     CMDCMDCMDCMDCMD"Y"WAIT"
  58. 375 YA[178]6:YE[178]18:[141]60100
  59. 376 [129]Z[178]6[164]18[169]2:[151]214,Z:[151]211,37:[158]58732:[153]"<":[130]:[151]214,4
  60. 377 [151]214,5:[158]58732
  61. 380 [129]T[178]1[164]7
  62. 390 [153]""DA$(T)
  63. 400 [130]
  64. 410 [151]214,5:[158]58732:[129]T[178]1[164]7:[153]"";
  65. 420 LE[178]20:BS[178]1:[141]60000:TA$(T,Y)[178]I$:[130]
  66. 445 [139]Y[178]50[167][151]214,21:[151]211,15:[158]58732:[153]"                         "
  67. 450 [151]198,.:[146]198,1:[161]X$:[139]X$[178][199](133)[167]375
  68. 460 [139]X$[178][199](134)[175]Y[179]50[167]Y[178]Y[170]1:[137]374
  69. 465 [139][197](X$)[177].[175][197](X$)[179]8[167][141]61400
  70. 470 [139]X$[178][199](135)[167]150
  71. 480 [139]X$[178][199](136)[167]Y[178]0:F[178]1:[137]150
  72. 490 [137]450
  73. 500 [139]Y[178]0[167][153]"VALS IST KEINE (null)ABELLE VORHANDEN!":[151]198,.:[146]198,1:[137]150
  74. 505 D[178]1:[151]214,20:[151]211,.:[158]58732
  75. 510 [153]"----------------------------------------"
  76. 512 [153]"  ASC5 WAIT ATNENDERN         ASC7 WAIT (null)ENUE"
  77. 515 YA[178]6:YE[178]18:[141]60100
  78. 520 [153]""DA$(1);TA$(1,D)
  79. 530 [153]""DA$(2);TA$(2,D)
  80. 540 [153]""DA$(3);TA$(3,D)
  81. 550 [153]""DA$(4);TA$(4,D)
  82. 560 [153]""DA$(5);TA$(5,D)
  83. 570 [153]""DA$(6);TA$(6,D)
  84. 580 [153]""DA$(7);TA$(7,D)
  85. 590 [151]214,19:[151]211,.:[158]58732:[153][166]15)"(null)EITE:     CMDCMDCMDCMDCMD"D"WAIT"
  86. 600 [139]D[178]Y[167][151]214,21:[151]211,.:[158]58732:[153]"          "
  87. 605 [139]D[179]Y[167][151]214,21:[151]211,.:[158]58732:[153]"  ASC1 WAIT (null)OR"
  88. 610 [139]D[179]2[167][151]214,21:[151]211,21:[158]58732:[153]"               "
  89. 615 [139]D[177]1[167][151]214,21:[151]211,21:[158]58732:[153]" ASC3 WAIT (null)URUECK"
  90. 620 [151]198,.:[146]198,1:[161]X$
  91. 625 [139][197](X$)[177].[175][197](X$)[179]8[167][141]60400
  92. 630 [139]X$[178][199](133)[175]D[179]Y[167]D[178]D[170]1:[137]515
  93. 640 [139]X$[178][199](134)[175]D[177]1[167]D[178]D[171]1:[137]515
  94. 650 [139]X$[178][199](135)[167]680
  95. 660 [139]X$[178][199](136)[167]150
  96. 670 [137]620
  97. 680 YA[178]6:YE[178]18:[141]60100
  98. 690 [153]:[129]T[178]1[164]7
  99. 700 [153]""DA$(T):[151]214,4[170]T[172]2:[151]211,38:[158]58732:[153]"<"
  100. 710 [130]
  101. 720 [129]T[178]1[164]7:[151]214,4[170]T[172]2:[151]211,16:[158]58732
  102. 730 LE[178]20:BS[178]1:[141]60000:TA$(T,D)[178]I$:[151]214,4[170]T[172]2:[151]211,38:[158]58732:[153]" "
  103. 760 [130]:[137]620
  104. 770 [141]60200:[139]ER[167]2000
  105. 771 [139]Y[178]0[167][153]"(null)EINE (null)ABELLE VORHANDEN!":[151]198,.:[146]198,1:[137]150
  106. 775 [159]1,8,15,"UI+":[159]2,8,2,"0:LD 2 RELDAT"
  107. 780 [132]1,E:[139]E[178]62[167][153]"RIGHT$ST ES DIE STR$ATENDISK?":[160]1:[160]2
  108. 781 [139]E[178]62[167][151]198,.:[146]198,1:[137]150
  109. 785 [153]"ATNB WELCHEM PEEKLOCK ABLEGEN (1-20): ";:LE[178]2:BS[178]1:[141]60000
  110. 786 AD[178][197](I$):[139]AD[177]20[167][153]"ONON":[137]785
  111. 787 [139]AD[178]0[167][160]1:[160]2:[137]150
  112. 790 R[178](AD[171]1)[172]50:H[178][181](R[173]256):L[178]R[171]H[172]256
  113. 792 [152]1,"P"[170][199](2)[170][199](L)[170][199](H)[170][199](1):[141]60300:[139]E1$[179][177]"00"[167][128]
  114. 793 [152]1,"P"[170][199](2)[170][199](L)[170][199](H)[170][199](1):[129]D[178].[164]Y[171]1
  115. 794 W$[178][201]([196](F),1)
  116. 800 [129]T[178]1[164]7
  117. 810 [139][195](TA$(T,D[170]1))[179]20[167]TA$(T,D[170]1)[178]TA$(T,D[170]1)[170]" ":[137]810
  118. 820 W$[178]W$[170]TA$(T,D[170]1):[130]:[151]211,.:[151]214,10:[158]58732
  119. 830 [139][195](W$)[179][177]141[167][153]"STR$ATENSATZERROR!":[160]2:[160]1:[128]
  120. 835 [151]781,2:[158]65481
  121. 840 [152]2,W$;:W$[178]"":[141]60300:[139]E1$[179][177]"00"[167][153]"ASCEHLER!":[128]
  122. 850 [130]:[152]2,[199](255)::[151]211,.:[151]214,8:[158]58732
  123. 855 [153]"STR$ATEN SIND GESCHRIEBEN.":[158]65484
  124. 860 [160]2:[160]1:[137]150
  125. 950 [141]60200:[139]ER[167]2000
  126. 951 [140]
  127. 952 [129]T[178]1[164]75:[135]A:[130]:T[178]49152
  128. 953 [135]A:[139]A[179][177][171]1[167][151]T,A:T[178]T[170]1:[137]953
  129. 954 [159]1,8,15,"I":[159]2,8,2,"0:LD 2 RELDAT"
  130. 955 [132]1,E:[139]E[178]62[167][153]"(null)HNE STR$ATEI KANN ICH NICHTS LADEN!":[146]203,64,64
  131. 960 [139]E[178]62 [167][160]2:[160]1:[137]150
  132. 970 [153]"ATNB WELCHEM PEEKLOCK LESEN (1-20): ";:LE[178]2:BS[178]1:[141]60000
  133. 980 AD[178][197](I$):[139]AD[177]20[167][153]"ONON":[137]970
  134. 985 [139]AD[178].[167][160]2:[160]1:[137]150
  135. 990 R[178](AD[171]1)[172]50:H[178][181](R[173]256):L[178]R[171]H[172]256
  136. 1000 [152]1,"P"[170][199](2)[170][199](L)[170][199](H)[170][199](1):[141]60300:[139]E1$[179][177]"00"[167][128]
  137. 1010 [152]1,"P"[170][199](2)[170][199](L)[170][199](H)[170][199](1):Y[178]1
  138. 1015 [141]60300:[139]E1$[178]"50"[167][160]2:[160]1:[137]150
  139. 1020 [161]#2,A$:[139]A$[178][199](255)[167][151]214,8:[151]211,.:[158]58732:[137]1100
  140. 1030 F[178][197](A$):[151]214,10:[151]211,.:[158]58732
  141. 1040 [129]I[178]1[164]7:[158]49152,A$:TA$(I,Y)[178]A$:[130]
  142. 1060 Y[178]Y[170]1:[139]Y[178]51[167]1130
  143. 1065 [137]1020
  144. 1100 [139]Y[178]1[167][153]"VALIN LEERER PEEKLOCK WURDE GELESEN.":[137]1140
  145. 1130 [153]"ATNLLE STR$ATEN SIND EINGELESEN.":[158]65484
  146. 1140 Y[178]Y[171]1:[160]2:[160]1:[146]203,64,64:[137]150
  147. 1150 [153]"ATNLLE STR$ATEN STR$ATEN IM (null)PEICHER WERDEN GE-
  148. 1160 PRINT"LOESCHT!"
  149. 1170 PRINT"O.[203].? (J[146]/N[146])"
  150. 1180 POKE198,.:WAIT198,1:GETX$:IFX$="N"THEN150
  151. 1190 IFX$<>"J"THEN1180
  152. 1200 FORA=1TO7:FORD=1TO50:TA$(A,D)="":NEXT:POKE53280,A:NEXT:Y=0
  153. 1210 PRINT"[196]ATEN SIND GELOESCHT!":POKE198,.:WAIT198,1:POKE53280,14:GOTO150
  154. 1220 GOSUB60200:IFERTHEN2000
  155. 1225 POKE214,6:POKE211,.:SYS58732
  156. 1226 PRINT"[196]ISK-[207]PTIONS 1541/1571":POKE214,7:SYS58732
  157. 1230 PRINT"    [198][146]ORMATIEREN [174]"CHR$(13)"    [204][146]OESCHEN    [189][145][157][171] EINER [196]ISK"
  158. 1245 PRINT"    [193][146]NLEGEN EINER [196]ATEI"
  159. 1246 PRINT"    [211][146]CRATCHEN EINER [196]ATEI"
  160. 1247 PRINT"    [201][146]NITIALISIEREN DER [198]LOPPY
  161. 1255 [153]"    STR$WAITIRECTORY"
  162. 1260 [153]"(null)UM (null)WAITENUE ZURUECKKEHREN"
  163. 1270 A[178]0:[151]198,.:[146]198,1:[161]X$:[139]X$[178]"M"[167]150
  164. 1280 [139]X$[178]"F"[167]A[178]1
  165. 1285 [139]X$[178]"A"[167]A[178]4
  166. 1286 [139]X$[178]"S"[167]A[178]5
  167. 1290 [139]X$[178]"L"[167]A[178]2
  168. 1295 [139]X$[178]"D"[167]A[178]3
  169. 1296 [139]X$[178]"I"[167]A[178]6
  170. 1320 [139]A[178]0[167]1270
  171. 1330 [159]1,8,15:[145]A[137]1340,1430,1680,1510,1540,6000,6010
  172. 1335 YA[178]6:YE[178]23:[141]60100:[153]"":[160]1:[137]1220
  173. 1340 YA[178]6:YE[178]21:[141]60100:[153]"(null)AME DER STR$ISKETTE: ";:LE[178]16:BS[178]1:[141]60000
  174. 1350 N$[178]I$:[153]"RIGHT$STR$ DER STR$ISKETTE: ";:LE[178]2:BS[178]1:[141]60000
  175. 1360 [139]N$[178]""[176]I$[178]""[167][160]1:[137]1335
  176. 1370 [153]"O.(null).? (JWAIT/NWAIT)":[151]198,.:[146]198,1:[161]X$
  177. 1380 [139]X$[178]"N"[167]1335
  178. 1390 [139]X$[179][177]"J"[167][153]"ONON";:[137]1370
  179. 1400 [152]1,"N:"[170]N$[170]","[170]I$:[132]1,E1$,E2$,E3$,E4$
  180. 1401 [141]60300
  181. 1402 [159]2,8,2,"0:LD 2 RELDAT,L,"[170][199](141)
  182. 1403 [141]60300:[139]E1$[178]"63"[167][160]1:[160]2:[137]1335
  183. 1404 [152]1,"P"[170][199](98)[170][199](224)[170][199](3)[170][199](1)
  184. 1405 [141]60300
  185. 1406 [152]2,[199](255)
  186. 1407 [141]60300
  187. 1408 [160]2
  188. 1429 [160]1:[151]198,.:[146]198,1:[137]1335
  189. 1430 YA[178]6:YE[178]21:[141]60100:[153]"(null)AME DER STR$ISKETTE: ";:LE[178]16:BS[178]1:[141]60000
  190. 1440 N$[178]I$:[139]N$[178]""[167][160]1:[137]1335
  191. 1450 [153]"O.(null).? (JWAIT/NWAIT)":[151]198,.:[146]198,1:[161]X$
  192. 1460 [139]X$[178]"N"[167]1335
  193. 1470 [139]X$[179][177]"J"[167][153]"ONON";:[137]1450
  194. 1480 [152]1,"N:"[170]N$:[132]1,E1$,E2$,E3$,E4$
  195. 1500 [137]1401
  196. 1510 YA[178]6:YE[178]21:[141]60100:[153]"PEEKITTE STR$ISK FUER DIE NEUE STR$ATEI EINLEGEN."
  197. 1520 [146]203,64,64:[161]X$:[139]X$[178]"."[167][160]1:[137]1335
  198. 1530 [153]"ONON(null)EGE JETZT DIE NEUE STR$ATEI AN.           ":[137]1402
  199. 1540 YA[178]6:YE[178]21:[141]60100:[153]"(null)EGEN SIE DIE STR$ISK MIT DER ZU SCRATCH-"
  200. 1550 [153]"ENDEN STR$ATEI EIN."
  201. 1551 [146]203,64,64:[161]X$:[139]X$[178]"."[167][160]1:[137]1335
  202. 1552 [153]"ON                 ":[153]"ONON(null)CRATCHE STR$ATEI!                       "
  203. 1553 [152]1,"S:LD 2 RELDAT":[141]60300:[146]203,64,64:[137]1335           "
  204. 1680 PRINT#1,"I":INPUT#1,ER
  205. 1690 IFERTHENPRINT"[196]ISK IST NICHT LESBAR!":WAIT203,64,64:GOTO1335
  206. 1700 FORT=1TO1000:NEXT:PRINT"[147]"CHR$(142):RESTORE:FORM=828TO902
  207. 1710 READ P:POKE M,P:NEXT:SYS828:POKE198,.:WAIT198,1
  208. 1711 PRINT"[147]"CHR$(14):X$="[204]IST-[196]ESIGNER [212]WO V4.0":PRINT""TAB(FNT(1))X$
  209. 1712 PRINT"----------------------------------------":GOTO1335
  210. 1720 PRINT"[211]IND [211]IE SICHER? (J[146]/N[146])"
  211. 1730 POKE198,.:WAIT198,1:GETX$:IFX$="N"THEN150
  212. 1740 IFX$="J"THENPRINT"[147][212]SCHUESS...":END
  213. 1750 GOTO1730
  214. 1760 IFY>.THEN1780
  215. 1770 POKE214,12:SYS58732:PRINT"  [215]AS SOLL ICH DENN DRUCKEN, DU ...?"
  216. 1775 POKE198,.:WAIT198,1:GOTO150
  217. 1780 POKE214,6:POKE211,.:SYS58732:PRINT"[196]RUCKER: [211]TAR [204][195] 20
  218. 1781 [137]2100
  219. 1782 [141]61000
  220. 1783 [151]214,8:[151]211,.:[158]58732:[153]"(null)EBERSCHRIFT:";:LE[178]80:BS[178]1:[141]60000
  221. 1784 [151]781,8:[158]59903:[151]781,9:[158]59903:[151]781,12:[158]59903
  222. 1785 [151]214,11:[151]211,.:[158]58732:[153]"STR$RUCKE!"
  223. 1790 [159]1,18,4:[139]I$[178]""[167]1796
  224. 1795 [152]1,I$
  225. 1796 [152]2,ES$[199](45)[199](1)
  226. 1805 [152]1,"(null)ERZEICHNIS";:[152]2,ES$[199](45)[199](0);
  227. 1806 [152]1,"                             ";:[152]2,ES$[199](45)[199](1);
  228. 1807 [152]1,"PEEKEMERKUNGEN":[152]2,ES$[199](45)[199](0)
  229. 1810 D[178]1
  230. 1820 [129]T[178]1[164]7:[152]1,DA$(T);": ";TA$(T,D):[130]:[152]1,""
  231. 1830 D[178]D[170]1
  232. 1831 [139][181](D[173]8)[178]D[173]8[175]D[179]Y[167][141]61500
  233. 1832 [139]D[178][179]Y[167]1820
  234. 1870 [151]214,11:[151]211,.:[158]58732:[153]"       "
  235. 1871 [151]781,8:[158]59903:[151]781,9:[158]59903:[151]214,8:[151]211,.:[158]58732
  236. 1875 [153]"ATNNZAHL DER STR$ATEN AUSGEBEN? ";
  237. 1876 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]1876
  238. 1877 [153]A$:[139]A$[178]"N"[167]1899
  239. 1880 [152]1,[199](13)"ATNNZAHL:";Y:[129]T[178]1[164]100:[130]
  240. 1899 [151]781,8:[158]59903:P[178]3:[141]61100
  241. 1900 [151]214,11:[151]211,.:[158]58732:[153]"ASCERTIG!":[146]203,64,64
  242. 1910 [160]2:[160]1:[137]150
  243. 2000 YA[178]6:YE[178]23:[141]60100
  244. 2010 [153]"ASC(null)(null)(null)(null)(null) IST AUS! PEEKITTE EINSCHALTEN!"
  245. 2020 [151]198,.:[146]198,1:[137]150
  246. 2040 YA[178]6:YE[178]23:[141]60100
  247. 2050 [153]"STR$ON(null)ON(null)ONLENON(null)ONVALON(null) IST AUS! PEEKITTE EINSCHALTEN!"
  248. 2060 [151]198,.:[146]198,1:[137]150
  249. 2100 [151]214,8:[151]211,.:[158]58732:[153]"(null)ENUE:
  250. 2110 POKE214,10:POKE211,10:SYS58732:PRINT"- [203]ARTEIKARTE"
  251. 2120 POKE214,11:POKE211,10:SYS58732:PRINT"- [204]ISTE......"
  252. 2130 POKE214,12:POKE211,10:SYS58732:PRINT"- [218]URUECK....":U=1
  253. 2140 POKE198,0:WAIT198,1:GETA$
  254. 2145 IFA$=""ANDU<3THENU=U+1:GOTO2180
  255. 2150 IFA$=""ANDU=3THENU=1:GOTO2180
  256. 2155 IFA$="[145]"ANDU=1THENU=3 :GOTO2180
  257. 2160 IFA$="[145]"ANDU>1THENU=U-1:GOTO2180
  258. 2165 IFA$=CHR$(13)THEN2190
  259. 2170 GOTO2140
  260. 2180 ONUGOSUB2181,2184,2187:GOTO2140
  261. 2181 POKE214,10:POKE211,10:SYS58732:PRINT"- [203]ARTEIKARTE"
  262. 2182 POKE214,11:POKE211,10:SYS58732:PRINT"- [204]ISTE......"
  263. 2183 POKE214,12:POKE211,10:SYS58732:PRINT"- [218]URUECK....":RETURN
  264. 2184 POKE214,10:POKE211,10:SYS58732:PRINT"- [203]ARTEIKARTE"
  265. 2185 POKE214,11:POKE211,10:SYS58732:PRINT"- [204]ISTE......"
  266. 2186 POKE214,12:POKE211,10:SYS58732:PRINT"- [218]URUECK....":RETURN
  267. 2187 POKE214,10:POKE211,10:SYS58732:PRINT"- [203]ARTEIKARTE"
  268. 2188 POKE214,11:POKE211,10:SYS58732:PRINT"- [204]ISTE......"
  269. 2189 POKE214,12:POKE211,10:SYS58732:PRINT"- [218]URUECK....":RETURN
  270. 2190 GOSUB2200:ONUGOTO2205,1782,150
  271. 2200 FORT=8TO15:POKE781,T:SYS59903:NEXT:POKE214,8:SYS58732:RETURN
  272. 2205 GOSUB61000:OPEN1,18,4
  273. 2210 D=1
  274. 2220 FORT=1TO7:PRINT#1,DA$(T);": ";TA$(T,D)::PRINT#1,"":NEXT:PRINT#1:PRINT#1
  275. 2230 D=D+1:GOSUB61500
  276. 2240 IFD=<YTHEN2220
  277. 2250 POKE214,11:POKE211,.:SYS58732:PRINT"       "
  278. 2260 POKE781,8:SYS59903:POKE781,9:SYS59903
  279. 2270 POKE214,11:POKE211,.:SYS58732:PRINT"[198]ERTIG!":WAIT203,64,64
  280. 2280 CLOSE2:CLOSE1:GOTO150
  281. 4000 REM "16 [218]EICHEN!"
  282. 4040 DA$(1)="[212]ITEL:          "
  283. 4041 DA$(2)="[205]USIKER/[199]RUPPE: "
  284. 4042 DA$(3)="[212]ITELANZAHL:    "
  285. 4043 DA$(4)="[204]AUFZEIT:       "
  286. 4044 DA$(5)="[205]ONAT/[202]AHR:     "
  287. 4045 DA$(6)="[211]PARTE:         "
  288. 4046 DA$(7)="[194]EMERKUNG:      "
  289. 4050 RETURN
  290. 4060 DA$(1)="[206]AME:           "
  291. 4061 DA$(2)="[201][196]:             "
  292. 4062 DA$(3)="[193]NZAHL D. [198]ILES:"
  293. 4063 DA$(4)="[203]URZBESCHREIB.: "
  294. 4064 DA$(5)="[196]RIVE + [211]PUREN: "
  295. 4065 DA$(6)="[199]EOS [196]ISK:      "
  296. 4066 DA$(7)="[194]EMERKUNG:      "
  297. 4070 RETURN
  298. 4080 DA$(1)="[214]ORNAME:        "
  299. 4081 DA$(2)="[206]AME:           "
  300. 4082 DA$(3)="[211]TR. / [200]AUSNR.: "
  301. 4083 DA$(4)="[208]OSTLEITZAHL:   "
  302. 4084 DA$(5)="[215]OHNORT:        "
  303. 4085 DA$(6)="[212]ELEFON:        "
  304. 4086 DA$(7)="[199]EBURTSTAG:     "
  305. 4090 RETURN
  306. 4100 DA$(1)="[198]ILMTITEL:      "
  307. 4101 DA$(2)="[212]HEMA:          "
  308. 4102 DA$(3)="[210]EGIE:          "
  309. 4103 DA$(4)="[202]AHR:           "
  310. 4104 DA$(5)="[204]AENGE:         "
  311. 4105 DA$(6)="[206]R. DER [203]ASS.:  "
  312. 4106 DA$(7)="[194]EMERKUNG:      "
  313. 4110 RETURN
  314. 4111 DA$(2)="[206]AME:           "
  315. 4120 DA$(1)="                "
  316. 4121 DA$(2)="                "
  317. 4122 DA$(3)="                "
  318. 4123 DA$(4)="                "
  319. 4124 DA$(5)="                "
  320. 4125 DA$(6)="                "
  321. 4126 DA$(7)="                "
  322. 4130 RETURN
  323. 6000 PRINT#1,"I":GOSUB60300:CLOSE1:WAIT203,64,64:GOTO1335
  324. 59999 PRINT"ENDE":END
  325. 60000 P=0:I$=""
  326. 60001 POKE204,.:POKE198,.:WAIT198,1:GETX$
  327. 60002 POKE207,.:POKE204,1:PRINT" [157]";
  328. 60003 IFP=.THEN60005
  329. 60004 IFASC(X$)=20THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157] [157]";:P=P-1:GOTO60001
  330. 60005 IFASC(X$)=13THENPRINT:RETURN
  331. 60006 IFP=LE THEN60001
  332. 60007 IFBS=.AND(X$<"0"ORX$>"9")THEN60001
  333. 60008 IFBS=1AND(X$<" "OR(X$>CHR$(127)ANDX$<CHR$(160)))THEN60001
  334. 60009 PRINTX$;:I$=I$+X$:P=P+1:GOTO60001
  335. 60100 FORT=YATOYE:POKE781,T:SYS59903:NEXT
  336. 60110 POKE214,YA-2:POKE211,.:SYS58732:RETURN
  337. 60200 POKE144,.:POKE780,8:SYS65457:SYS65454:ER=PEEK(144):RETURN
  338. 60210 POKE144,.:POKE780,4:SYS65457:SYS65454:ER=PEEK(144):RETURN
  339. 60300 INPUT#1,E1$,E2$,E3$,E4$:POKE781,22:SYS59903:POKE211,.:POKE214,22
  340. 60310 SYS58732:PRINTE1$","E2$","E3$","E4$:RETURN
  341. 60400 X1=VAL(X$):Y1=4+X1*2:POKE780,Y1:SYS59903
  342. 60410 POKE214,Y1:POKE211,.:SYS58732:PRINTDA$(X1)
  343. 60420 POKE214,Y1:POKE211,38:SYS58732:PRINT"<"
  344. 60430 POKE214,Y1:POKE211,16:SYS58732:LE=20:BS=1:GOSUB60000
  345. 60440 TA$(X1,D)=I$:POKE214,Y1:POKE211,38:SYS58732:PRINT" ":RETURN
  346. 61000 PRINT"[196]RUCKEREINSTELLUNG
  347. 61010 ES$[178][199](27):DR$(0)[178]ES$[170]"@":DR$(1)[178][199](12):DR$(2)[178][199](17)
  348. 61011 DR$(7)[178]ES$[170][199](120)[170][199](0)
  349. 61012 DR$(8)[178]ES$[170][199](120)[170][199](1):DR$(10)[178]ES$[170]"(null)"[170][199](0)
  350. 61013 DR$(11)[178]ES$[170]"R"[170][199](2):DR$(12)[178]ES$[170]"P":DR$(13)[178]ES$[170]"M"
  351. 61014 DR$(14)[178][199](15):DR$(15)[178][199](18):DR$(16)[178]ES$[170]"(null)"[170][199](1)
  352. 61015 DR$(17)[178]ES$[170]"(null)"[170][199](0):DR$(18)[178][199](7):DR$(19)[178]ES$[170]"9":DR$(20)[178]ES$[170]"U0"
  353. 61016 DR$(9)[178]ES$[170][199](107)
  354. 61020 [153]"(null)CHRIFTGROESSE:
  355. 61021 A$(1)="[208]ICA  10 CPI":A$(3)="[208]ICA  17 CPI":A$(2)="[197]LITE 12 CPI"
  356. 61022 A$(4)="[197]LITE 20 CPI":A$(5)="[218]URUECK     ":Z=1
  357. 61023 FORT=1TO8:B$(T)=""+A$(T)+"[146]":NEXT
  358. 61024 POKE214,12:SYS58732:FORT=1TO8:PRINTTAB(10)A$(T):NEXT
  359. 61025 POKE214,12:POKE211,10:SYS58732:PRINTB$(1)
  360. 61026 GETA$:IFA$<>""THENPOKE214,11+Z:POKE211,10:SYS58732:PRINTA$(Z)
  361. 61027 IFA$="[145]"ANDZ<2THENZ=5:A$=""
  362. 61028 IFA$=""ANDZ=>5THENZ=1:A$=""
  363. 61029 IFA$=""ANDZ<6THENZ=Z+1
  364. 61030 IFA$="[145]"ANDZ>1THENZ=Z-1
  365. 61031 IFA$=CHR$(13)THEN61034
  366. 61032 POKE214,11+Z:POKE211,10:SYS58732:PRINTB$(Z)
  367. 61033 GOTO61026
  368. 61034 IFZ=5THEN150
  369. 61035 OPEN2,16:IFZ=1ORZ=2THENPRINT#2,DR$(11+Z)DR$(15);:GOTO61037
  370. 61036 PRINT#2,DR$(9+Z)DR$(14);
  371. 61037 YA=10:YE=20:GOSUB60100:POKE214,10:SYS58732:PRINT"[211]CHRIFTART:
  372. 61038 A$(1)[178]"STR$RAFT       ":A$(2)[178]"LENOURIER     ":A$(3)[178]"(null)ANSERIF    "
  373. 61039 A$(4)[178]"(null)RATOR 1    ":A$(5)[178]"(null)RATOR 2    ":Z[178]1
  374. 61040 [129]T[178]1[164]8:B$(T)[178]""[170]A$(T)[170]"WAIT":[130]
  375. 61041 [151]214,12:[158]58732:[129]T[178]1[164]8:[153][163]10)A$(T):[130]
  376. 61042 [151]214,12:[151]211,10:[158]58732:[153]B$(1)
  377. 61043 [161]A$:[139]A$[179][177]""[167][151]214,11[170]Z:[151]211,10:[158]58732:[153]A$(Z)
  378. 61044 [139]A$[178]"ON"[175]Z[179]2[167]Z[178]5:A$[178]""
  379. 61045 [139]A$[178]""[175]Z[178][177]5[167]Z[178]1:A$[178]""
  380. 61046 [139]A$[178]""[175]Z[179]6[167]Z[178]Z[170]1
  381. 61047 [139]A$[178]"ON"[175]Z[177]1[167]Z[178]Z[171]1
  382. 61048 [139]A$[178][199](13)[167]61051
  383. 61049 [151]214,11[170]Z:[151]211,10:[158]58732:[153]B$(Z)
  384. 61050 [137]61043
  385. 61051 [139]Z[178]1[167][152]2,DR$(7);:[137]61057
  386. 61052 [139]Z[178]2[167]A$[178][199](0)
  387. 61053 [139]Z[178]3[167]A$[178][199](1)
  388. 61054 [139]Z[178]4[167]A$[178][199](7)
  389. 61055 [139]Z[178]5[167]A$[178][199](8)
  390. 61056 [152]2,DR$(8);DR$(9)A$;
  391. 61057 [152]2,DR$(19)DR$(20)DR$(11)DR$(10);
  392. 61058 YA[178]8:YE[178]20:[137]60100
  393. 61100 [152]2,DR$(18);:[142]
  394. 61400 X1[178][197](X$):Y1[178]4[170]X1[172]2:[151]214,Y1:[151]211,16:[158]58732:[153]"
  395. 61410 POKE214,Y1:POKE211,.:SYS58732:PRINTDA$(X1)
  396. 61430 POKE214,Y1:POKE211,16:SYS58732:LE=20:BS=1:GOSUB60000
  397. 61440 TA$(X1,D)=I$:RETURN
  398. 61500 POKE781,8:SYS59903:POKE781,9:SYS59903:POKE214,8:POKE211,.:SYS58732
  399. 61510 PRINT"[206]AECHSTES [194]LATT EINLEGEN!":GOSUB61100:WAIT203,64,64
  400. 61520 POKE781,8:SYS59903:POKE214,8:POKE211,.:SYS58732
  401. 61530 RETURN
  402. 63000 DATA169,147,32,210,255,162,134,160,3,169,1,32,189,255,169,8,162,96,133
  403. 63001 DATA186,134,185,32,213,243,32,25,242,160,4,32,19,238,136,208,250,165,198
  404. 63002 DATA5,144,208,25,32,19,238,170,32,19,238,32,205,189,32,19,238,32,210,255
  405. 63003 DATA208,248,32,215,170,160,2,208,219,32,66,246,32,243,246,96,36
  406. 63004 DATA32,253,174,32,139,176,133,73,132,74,32,163,182,169,20,32,244
  407. 63005 DATA180,133,250,132,252,134,251,160,2,185,250,,145,73,136,16,248,162,2,32
  408. 63006 DATA30,225,160,,32,207,255,145,251,200,196,250,208,246,76,204,255,-1
  409.